home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / util / gswingui / port_prn.ps < prev    next >
Text File  |  1993-03-15  |  908b  |  28 lines
  1. % A small prologue for going from landscape mode to portrait.
  2. % The files will no longer fit without some kind of scaling.
  3. % This is a rough attempt by a novice... there must be a better way.
  4. %
  5. % This version is intended to fit what would have been a Landscape image
  6. % inside a portrait view on a 300 x 300 DPI printer.  It will not work
  7. % properly on other resolutions.
  8.  
  9.  
  10.     gsave clippath pathbbox grestore
  11.     4 dict begin
  12.     /ury exch def /urx exch def /lly exch def /llx exch def
  13.     50 0 translate
  14.         .60 .60 scale
  15.     90 rotate
  16.     ury urx sub llx ury add neg translate
  17.     gsave clippath pathbbox grestore
  18.     4 dict begin
  19.     /ury exch def /urx exch def /lly exch def /llx exch def
  20.     90 rotate
  21.     ury urx sub llx ury add neg translate
  22.     gsave clippath pathbbox grestore
  23.     4 dict begin
  24.     /ury exch def /urx exch def /lly exch def /llx exch def
  25.     90 rotate
  26.     ury urx sub llx ury add neg translate
  27.     end
  28.